home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n11.arc / REPEATS.BAS < prev    next >
BASIC Source File  |  1987-05-11  |  12KB  |  177 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE REPEATS.COM
  2. 110 OPEN "REPEATS.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  157 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 128829! THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,    32,     1,    67,   111,   112,   121,   114,   791
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     55,    32,    90,   105,   102,   102,    45,    68,   599
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    26,    77,   105,    99,   104,   635
  26. 350 DATA     97,   101,   108,    32,    74,    46,    32,    77,   567
  27. 360 DATA    101,   102,   102,   111,   114,   100,    42,    46,   718
  28. 370 DATA     42,     0,    46,    46,     0,    92,     0,     0,   226
  29. 380 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  30. 390 DATA      0,     0,     0,     0,     0,     0,    13,    10,    23
  31. 400 DATA     83,   101,    97,   114,    99,   104,   105,   110,   813
  32. 410 DATA    103,    32,     0,    32,   102,   111,   114,    32,   526
  33. 420 DATA    100,   117,   112,   108,   105,    99,    97,   116,   854
  34. 430 DATA    101,    32,   102,   105,   108,   101,    32,   110,   691
  35. 440 DATA     97,   109,   101,   115,    46,    13,    10,    76,   567
  36. 450 DATA    111,    97,   100,   105,   110,   103,    32,   100,   758
  37. 460 DATA    105,   114,   101,    99,   116,   111,   114,   105,   865
  38. 470 DATA    101,   115,    46,    46,    46,   112,    97,   116,   679
  39. 480 DATA    105,   101,   110,    99,   101,    32,   112,   108,   768
  40. 490 DATA    101,    97,   115,   101,    13,    10,     0,    76,   513
  41. 500 DATA    111,    97,   100,   105,   110,   103,    32,   102,   760
  42. 510 DATA    105,   108,   101,    32,   110,    97,   109,   101,   763
  43. 520 DATA    115,    46,    46,    46,     0,    13,    10,    32,   308
  44. 530 DATA     32,    32,    32,    32,    32,    32,    32,    68,   292
  45. 540 DATA    105,   114,   101,    99,   116,   111,   114,   121,   881
  46. 550 DATA     32,     0,     7,    13,    10,    78,   111,    32,   283
  47. 560 DATA    100,   117,   112,   108,   105,    99,    97,   116,   854
  48. 570 DATA    101,   115,    32,   102,   111,   117,   110,   100,   788
  49. 580 DATA     46,    13,    10,     0,     7,    13,    10,    13,   112
  50. 590 DATA     10,    83,   101,    97,   114,    99,   104,    32,   640
  51. 600 DATA    115,   117,    99,   101,   115,   115,   102,   117,   881
  52. 610 DATA    108,   108,   121,    32,    99,   111,   109,   112,   800
  53. 620 DATA    108,   101,   116,   101,   100,    46,    13,    10,   595
  54. 630 DATA      0,    78,   111,   116,    32,   101,   110,   111,   659
  55. 640 DATA    117,   103,   104,    32,   109,   101,   109,   111,   786
  56. 650 DATA    114,   121,     0,   252,   187,     0,    16,   180,   870
  57. 660 DATA     74,   205,    33,   190,    17,     2,   115,     3,   639
  58. 670 DATA    233,    25,     2,   188,   228,     7,   180,    25,   888
  59. 680 DATA    205,    33,   162,    73,     1,   138,    14,   128,   754
  60. 690 DATA      0,   128,   249,     0,   116,    47,    50,   237,   827
  61. 700 DATA    190,   129,     0,   128,    60,    58,   117,    13,   695
  62. 710 DATA    138,    84,   255,   128,   226,    95,   128,   234,  1288
  63. 720 DATA     65,   180,    14,   205,    33,   128,    60,    47,   732
  64. 730 DATA    117,    16,   138,    84,     1,   128,   226,    95,   805
  65. 740 DATA    128,   250,    80,   117,     5,   198,     6,    82,   866
  66. 750 DATA      1,     1,    70,   226,   214,   198,     6,   138,   854
  67. 760 DATA      8,    92,   190,   139,     8,   232,   211,     1,   881
  68. 770 DATA    190,    86,     1,   232,    20,     2,   180,    25,   736
  69. 780 DATA    205,    33,   138,   208,   128,   194,    65,   232,  1203
  70. 790 DATA    242,     1,   178,    58,   232,   237,     1,   190,  1139
  71. 800 DATA     99,     1,   232,   253,     1,   252,   176,     1,  1015
  72. 810 DATA    185,   100,     0,   191,    38,     8,   243,   170,   935
  73. 820 DATA    186,   229,     7,   232,   177,     1,   190,   248,  1270
  74. 830 DATA      8,   189,    38,     8,   186,    69,     1,   180,   679
  75. 840 DATA     11,   205,    33,   232,   156,     1,   255,     6,   899
  76. 850 DATA     74,     1,   198,    68,   255,    92,   232,   138,  1058
  77. 860 DATA      1,   131,   198,    65,   131,     6,    71,     1,   604
  78. 870 DATA     65,   235,    18,   129,   253,    38,     8,   116,   862
  79. 880 DATA     67,   186,    66,     1,   232,   123,     1,    62,   738
  80. 890 DATA    198,    70,     0,     1,    77,    50,   219,   186,   801
  81. 900 DATA     62,     1,   185,    16,     0,   232,   116,     1,   613
  82. 910 DATA    114,   225,   128,    62,   250,     7,    16,   117,   919
  83. 920 DATA     28,   128,    62,     3,     8,    46,   116,    21,   412
  84. 930 DATA    254,   195,    62,    58,    94,     0,   117,    13,   793
  85. 940 DATA     62,   254,    70,     0,   186,     3,     8,   232,   815
  86. 950 DATA     72,     1,    69,   235,   162,   232,    81,     1,   853
  87. 960 DATA    114,   185,   235,   214,   131,    62,    74,     1,  1016
  88. 970 DATA      1,   117,     3,   233,     9,     1,   131,   198,   693
  89. 980 DATA     15,   177,     4,   211,   238,   139,   222,   180,  1186
  90. 990 DATA     74,   205,    33,   187,   255,   255,   180,    72,  1261
  91. 1000 DATA   205,    33,   180,    74,   205,    33,   140,   193,  1063
  92. 1010 DATA     3,   206,   142,   193,   137,    14,    78,     1,   774
  93. 1020 DATA     3,   217,   137,    30,    80,     1,   190,   167,   825
  94. 1030 DATA     1,   232,    70,     1,   199,     6,    71,     1,   581
  95. 1040 DATA   247,     8,    51,   237,   180,    11,   205,    33,   972
  96. 1050 DATA    69,    59,    46,    74,     1,   119,   102,   139,   609
  97. 1060 DATA    22,    71,     1,   232,   236,     0,   131,     6,   699
  98. 1070 DATA    71,     1,    65,   186,    62,     1,   185,     6,   577
  99. 1080 DATA     0,   232,   232,     0,   115,    26,   235,   220,  1060
  100. 1090 DATA   140,   192,     5,     2,     0,   142,   192,   190,   863
  101. 1100 DATA    17,     2,    59,     6,    80,     1,   114,     3,   282
  102. 1110 DATA   233,   156,     0,   232,   211,     0,   114,   196,  1142
  103. 1120 DATA   255,     6,    76,     1,   190,   251,     7,    51,   837
  104. 1130 DATA   255,   139,   197,   171,   185,     4,     0,   243,  1194
  105. 1140 DATA   165,   185,    12,     0,   172,    60,     0,   116,   710
  106. 1150 DATA    19,    60,    46,   117,    12,   131,   233,     3,   621
  107. 1160 DATA   176,    32,   243,   170,   131,   193,     3,   235,  1183
  108. 1170 DATA   235,   170,   226,   232,   176,    32,   243,   170,  1484
  109. 1180 DATA   176,     0,   170,   235,   179,    38,   199,     6,  1003
  110. 1190 DATA     0,     0,   255,   255,   190,    86,     1,   232,  1019
  111. 1200 DATA   192,     0,   161,    78,     1,   235,    15,   180,   862
  112. 1210 DATA    11,   205,    33,    46,   198,     6,    85,     1,   585
  113. 1220 DATA     0,   140,   192,     5,     2,     0,   142,   216,   697
  114. 1230 DATA   142,   192,   131,    62,    32,     0,   255,   116,   930
  115. 1240 DATA    54,    38,   139,    46,     0,     0,   131,   253,   661
  116. 1250 DATA     0,   116,   220,   140,   216,     5,     2,     0,   699
  117. 1260 DATA   142,   216,   190,     0,     0,   173,    61,   255,  1037
  118. 1270 DATA   255,   116,   204,    59,   197,   116,   236,   190,  1373
  119. 1280 DATA    10,     0,   191,    10,     0,   185,     6,     0,   402
  120. 1290 DATA   243,   167,   117,   223,   232,   121,     0,   199,  1302
  121. 1300 DATA     6,     0,     0,     0,     0,   235,   212,    14,   467
  122. 1310 DATA    31,   186,   138,     8,   232,    35,     0,   138,   768
  123. 1320 DATA    22,    73,     1,   180,    14,   205,    33,   190,   718
  124. 1330 DATA   236,     1,   128,    62,    83,     1,     1,   116,   628
  125. 1340 DATA     3,   190,   210,     1,    14,    31,   232,    73,   754
  126. 1350 DATA     0,   205,    32,   178,     0,   180,    71,   205,   871
  127. 1360 DATA    33,   195,   180,    59,   205,    33,   195,   180,  1080
  128. 1370 DATA    26,   205,    33,   195,   180,    78,   205,    33,   955
  129. 1380 DATA   195,   180,    79,   205,    33,   195,   178,    13,  1078
  130. 1390 DATA   232,    17,     0,   178,    10,   232,    12,     0,   681
  131. 1400 DATA   195,   178,    32,   232,     6,     0,   178,    32,   853
  132. 1410 DATA   232,     1,     0,   195,    46,   128,    62,    82,   746
  133. 1420 DATA     1,     1,   117,     4,   180,     5,   205,    33,   546
  134. 1430 DATA   180,     2,   205,    33,   195,   138,   208,   232,  1193
  135. 1440 DATA   234,   255,   172,    60,     0,   117,   246,   195,  1279
  136. 1450 DATA    30,    46,   198,     6,    83,     1,     1,    46,   411
  137. 1460 DATA   128,    62,    85,     1,     1,   116,    31,   232,   656
  138. 1470 DATA   188,   255,   185,    39,     0,   178,    45,   232,  1122
  139. 1480 DATA   202,   255,   226,   249,    46,   198,     6,    85,  1267
  140. 1490 DATA     1,     1,    38,   161,     0,     0,   232,    18,   451
  141. 1500 DATA     0,   140,   198,   232,    42,     0,   161,     0,   773
  142. 1510 DATA     0,   232,     7,     0,   140,   222,   232,    31,   864
  143. 1520 DATA     0,    31,   195,    72,   179,    65,   246,   227,  1015
  144. 1530 DATA   139,   248,    30,    14,    31,   190,   189,     1,   842
  145. 1540 DATA   232,   175,   255,   190,   247,     8,     3,   247,  1357
  146. 1550 DATA   232,   167,   255,   232,   120,   255,    31,   195,  1487
  147. 1560 DATA    30,   142,   222,   190,    10,     0,   232,   153,   979
  148. 1570 DATA   255,   139,    22,     8,     0,   161,     6,     0,   591
  149. 1580 DATA   185,    16,    39,   247,   241,    82,   139,   216,  1165
  150. 1590 DATA   232,   141,     0,    91,   232,   149,     0,   232,  1077
  151. 1600 DATA    95,   255,   139,    54,     4,     0,   139,   222,   908
  152. 1610 DATA   177,     5,   211,   203,   129,   227,    15,     0,   967
  153. 1620 DATA    46,   198,     6,    84,     1,     0,   232,   135,   702
  154. 1630 DATA     0,   178,    45,   232,    78,   255,   139,   222,  1149
  155. 1640 DATA   129,   227,    31,     0,   232,   121,     0,   178,   918
  156. 1650 DATA    45,   232,    64,   255,   139,   222,   177,     9,  1143
  157. 1660 DATA   211,   203,   129,   227,   127,     0,   131,   195,  1223
  158. 1670 DATA    80,   232,   100,     0,   232,    34,   255,   139,  1072
  159. 1680 DATA    54,     2,     0,   139,   222,   177,    11,   211,   816
  160. 1690 DATA   203,   129,   227,    31,     0,    83,   131,   251,  1055
  161. 1700 DATA    12,   118,     3,   131,   235,    12,   131,   251,   893
  162. 1710 DATA     0,   117,     3,   187,    12,     0,    46,   198,   563
  163. 1720 DATA     6,    84,     1,     0,   232,    57,     0,   178,   558
  164. 1730 DATA    58,   232,     0,   255,   139,   222,   177,     5,  1088
  165. 1740 DATA   211,   203,   129,   227,    63,     0,   232,    39,  1104
  166. 1750 DATA     0,   178,   112,    91,   131,   251,    12,   115,   890
  167. 1760 DATA     2,   178,    97,   232,   230,   254,    31,   195,  1219
  168. 1770 DATA    46,   198,     6,    84,     1,     0,   185,    16,   536
  169. 1780 DATA    39,   232,    25,     0,   185,   232,     3,   232,   948
  170. 1790 DATA    19,     0,   185,   100,     0,   232,    13,     0,   549
  171. 1800 DATA   185,    10,     0,   232,     7,     0,   185,     1,   620
  172. 1810 DATA     0,   232,     1,     0,   195,   139,   195,    51,   813
  173. 1820 DATA   210,   247,   241,   139,   218,   138,   208,    46,  1447
  174. 1830 DATA     8,     6,    84,     1,    46,   128,    62,    84,   419
  175. 1840 DATA     1,     0,   117,     2,   178,   240,   128,   194,   860
  176. 1850 DATA    48,   232,   160,   254,   195,     0,     0,     0,   889
  177.